Option Explicit

' 返回整数的长度
' @param num 待检查的数值
' @return Integer
Public Function intLength(ByVal num As Integer) As Integer
    intLength = Len("" & num)
End Function

' 将数字字符串转换为数字
' @param num 待转换的数值
' @return Double
Public Function str2Num(ByVal num As String) As Double
    str2Num = Val(num)
End Function
